home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00008_ÉeÉLÉXÉgä÷åW.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  931 b   |  48 lines
  1. on cuthead tmp
  2.   global gtextresult
  3.   set gtextresult to EMPTY
  4.   set l to length(tmp) - 1
  5.   repeat with t = 4 to l
  6.     set gtextresult to gtextresult & char t of tmp
  7.   end repeat
  8.   return gtextresult
  9. end
  10.  
  11. on devidetext txt
  12.   global gresult, gtextresult
  13.   set gresult to EMPTY
  14.   set gtextresult to EMPTY
  15.   set flag to 0
  16.   set l to length(txt)
  17.   repeat with t = 1 to l
  18.     set c to char t of txt
  19.     if (c = RETURN) and (flag <> 1) then
  20.       set flag to 1
  21.       next repeat
  22.     end if
  23.     if flag = 1 then
  24.       set gresult to gresult & c
  25.       next repeat
  26.     end if
  27.     set gtextresult to gtextresult & c
  28.   end repeat
  29.   return gtextresult
  30. end
  31.  
  32. on collecttitle txt
  33.   set r to 0
  34.   repeat with t = 1 to length(txt)
  35.     set c to char t of txt
  36.     if c = RETURN then
  37.       set r to r + 1
  38.     end if
  39.   end repeat
  40.   case r of
  41.     0:
  42.       set txt to txt & RETURN & RETURN
  43.     1:
  44.       set txt to txt & RETURN
  45.   end case
  46.   return txt
  47. end
  48.